home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 4
/
CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso
/
xcad_2.dms
/
xcad_2.adf
/
Install-XCAD2000
< prev
next >
Wrap
Text File
|
1994-02-14
|
4KB
|
140 lines
; $VER: Install XCAD 2000 V1.0 (23rd January 1994) © 1994 by Ben Vost
(set help-XCADassigns (cat "Select PROCEED to automatically add the"
"XCAD 2000 assignments to the user-startup"
" file. If you select SKIP THIS PART, you will"
" need to add the following assigns to your"
" User-Startup (<XCDir> is where you installed"
" XCAD 2000):\n\n"
"Assign XSPOVLY: <XCDir>XSPOVLY\n"
"Assign XSLOVLY: <XCDir>XSLOVLY\n"
"Assign XSMODS: <XCDir>XSMODS\n"
"Assign XSFONTS: <XCDir>XSFONTS\n"
"Assign XSDATA: <XCDir>XSDATA\n"
"Assign XCad20003D: <XCDir>\n"
"Assign XCad20003DHandlers: <XCDir>Handlers\n"
"Assign MENUS: <XCDir>menus\n"
"Assign DRAWINGS: <XCDir>drawings\n"
"Assign SYMBOLS: <XCDir>symbols\n"
"Assign XCad20003DPMods: <XCDir>PMods\n\n"
)
)
;for NTSC machines...
(procedure NTSC
(message "Now copying files suitable for an NTSC system...")
(copyfiles
(prompt"")
(help "")
(source "Install_XCAD2000.1:screenmodes/")
(pattern "#?NTSC#?")
(dest XCDIR)
)
(working)
(run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-prog_ntsc.lha \"%s/\"" XCDir))
)
;for PAL machines...
(procedure PAL
(message "Now copying files suitable for a PAL system...")
(copyfiles
(prompt "")
(help "")
(source "Install_XCAD2000.1:screenmodes/")
(pattern "~(#?NTSC#?)")
(dest XCDIR)
)
(working)
(run ("RAM:Lha -m x Install_XCAD2000.1:XCAD2k-prog.lha \"%s/\"" XCDir))
)
; ask where to install X-CAD 2000
(set ProgDir "XCAD2000")
(set @default-dest
(askdir
(prompt "Please select the Directory where you would like to install XCAD2000, a drawer will be created.\nYou will need about 2.5Mb free.")
(help @askdir-help)
(default "Work:")
)
)
(makedir (tackon @default-dest ProgDir)(infos))
(set XCDir (tackon @default-dest ProgDir))
(copyfiles
(prompt "")
(help "")
(source "Install_XCAD2000.1:c/lha")
(dest "RAM:")
)
(set vblank (database "vblank"))
(if (= vblank "60")
(NTSC)
(PAL)
)
(complete 20)
;start installing XCAD 2000
(makedir (tackon XCDir "drawings")(infos))
(makedir (tackon XCDir "symbols"))
(copyfiles
(prompt "")
(help "")
(source "Install_XCAD2000.1:s/")
(pattern "xc#?")
(dest "s:")
)
(working "Installing first block of files now...")
(run ("RAM:Lha -m x Install_XCAD2000.1:XCAD2k-2.lha \"%s/\""XCDir))
(complete 40)
(askdisk "Install_XCad2000.2"
(prompt "Please insert the disk named Install_XCad2000.2 in any drive...")
(help @askdisk-help)
(dest "Install_XCad2000.2")
)
(working "Installing second block of files now...")
(run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-3.lha \"%s/\""XCDir))
(complete 60)
(run ("RAM:Lha -m x Install_XCAD2000.2:XCAD2k-4.lha \"%s/\""XCDir)
(prompt "Would you like to install the tutorial files?")
(help "")
(confirm)
)
(complete 60)
(startup "X-CAD 2000"
(prompt "Add XCAD 2000 assigns to \"S:user-startup\"?")
(help (cat help-XCADassigns @startup-help))
(command (cat "Assign XSPOVLY: \"" (tackon XCDir "XSPOVLY") "\"\n"
"Assign XSLOVLY: \"" (tackon XCDir "XSLOVLY") "\"\n"
"Assign XSMODS: \"" (tackon XCDir "XSMODS") "\"\n"
"Assign XSFONTS: \"" (tackon XCDir "XSFONTS") "\"\n"
"Assign XSDATA: \"" (tackon XCDir "XSDATA") "\"\n"
"Assign XCad20003D: \"" XCDir "\"\n"
"Assign XCad20003DHandlers: \"" (tackon XCDir "Handlers") "\"\n"
"Assign MENUS: \"" (tackon XCDir "menus") "\"\n"
"Assign DRAWINGS: \"" (tackon XCDir "drawings") "\"\n"
"Assign SYMBOLS: \"" (tackon XCDir "symbols") "\"\n"
"Assign XCad20003DPMods: \"" (tackon XCDir "PMods") "\"\n"
)
)
)
(if (= 1 (exists "RAM:lha"))
(delete "RAM:lha")
)
(Complete 100)
(exit"You will need to reboot before you can use \nX-CAD 2000.\n")